SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 


**F ILE**1D**QUORUM 


QQQQQQ 
QQQQQQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
Qa QQ QQ 
Qa QQ QQ 

QQ QQ 

QQ QQ 
QQQaa aa 
Qaaa aa 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLLLLLLLL 

LLLLLLLLLL 


UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UUUUUUUUUU 
UUUUUUUUUU 
III] 
111! 
I] 
I] 
I] 
I] 
I] 
II 
I] 
I] 
I] 
I] 
III] 
W111! 


000000 
000000 
00 


000000 
000000 


UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UU UU 
UUUUUUUUUU 
UUUUUUUUUU 


QUORUM 
Table of contents 


3 QRWN 


ONOUSWNROvw ve vuevuvuvuvwwvy 
ee ee ee ee ee ee ee ee 


OOWONNOOUUNS Swron— 


LLL LL Le Lm me me Le fm lm lm 
~“ 


WOIiFOwo-o— 


G 12 


= DISK QUORUM MODULE 16-SEP-1984 00:37:37 VAX/VMS Macro v04-00 Page 

Declarations 

CNXSQUORUM suit = Quorum initialization 
QUORUM _ TIMEOUT = Quorum timeout 

EAD_QOORUM_FILE = Queue a read to the quorum file 

READ_COMPLETE = Quorum file read complete 
READ_COMPLETE_READY = Read complete processing for READY state 
READ_COMPLETE_ACTIVE = Read complete processing for ACTIVE state 

READ COMPLETE CLUSTER/VOTE = Read come) ete processing for CLUSTER and VOTE states 
BUILD QUORUA_FILE = Build the quorum file owner and activity blocks 
Quorum file write ead 5 
WRITE COMPLETE = Quorum f te write complete 
VALIDATE QUORUM_FILE = Validate quorum file 

CHECK_OWNER = Check quorum file ownersh 

CALCULATE CHECKSUM = Calculate the quorum file checksum 
Quorum file error routines 
REQUEST CSP = Request the CSP process 

CHECK_ERROR = Check to see if error is fatal 
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.TITLE QUORUM = DISK QUORUM MODULE 
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‘* 
*® ® 
is COPYRIGHT («) 1978, 1980, 1982, 1984 8 * 
is DIGITAL EQUIPHENT _GORPORATION, ” MAYNARD. MASSACHUSETTS. . 
;# ALL RIGHTS RES e 

te 
;® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:e IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY QTHER 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO A ‘ 
:# QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 18 HEREGY 
:® TRANSFERRED. . 
*® oe 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:* CORPORATION. ° 
:® ® 
:® of 
*® ® 
*® ® 
:® ® 
:* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Facility: Executive, Cluster management 


Abstract: 
This module contains the routines that implement the disk quorum 
algorithm. 


Enviornment: 
VMS Non Paged Exec - Kernel mode 


Author: 
R. Scott Hanna, CREATION DATE: 25-Jul-1983 
Modified by: 
v03-008 ynrpees Wayne Cardoza 16-Jul-1984 


l mount verification under some error conditions. 
Clear CLUDCBSB_COUNTER on any entry to CLUSTER state. 
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V03-007 wMc0002 Wayne Cardoza 28-Jun-1984 
Allow one error before calling CSP. 

v03-006 wmMc0001 Wayne Cardoza 31-May-1984 
Make sure IRP$W_STS field is cleared. 

v03-005 $SA0023 Stan Amway 6-Apr-1984 
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Decrement UCB device queue bengrh when 1/0 completes 
in READ_COMPLETE or WRITE_COMPLETE. This is required 
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because EXESINSIOQ increments the Length, but the IRP 
does not go through the normal IOPOST code which does 
the corresponding decrement. 


RSHO119 R. Scott Hanna 14-Mar-1984 

Rewrite of module to use a new algorithm. 

RSHO085 R. Scott Hanna 23-Nov-1983 
temove clear of quorum file logical block number on 
“connection” loss. 

RSHOO78 anne xf He Pn 


spenges, in error “hana ing fe rint error messa one 
time onl y- Clear quorum {te - ical block num or in 
CLUDCB when ‘‘connection’’ is Changes necessary due 
to re-structured quorum atesk. "thanges due to move of 
QF_TRANS and QF_TIMEOUT from CLUB to CLUDCB. 


RSHOO071 Sco 27-Sep-1983 
Make sure cLuDcBSt OBLAST one CLUDCBSL “obBuF’ ore 
swapped on quorum file transition from inactive 
regardless of the CLUBSV_QF_SKIP_READ bit. 
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-SBTTL Declarations 
Define Symbols 


uster block 


4 
5 
‘ SCLUBDEF s tt 
SCLUDCBDEF 3; Cluster quorum disk control block 
SCLUQF DEF ; Cluster quorum file 
0 0 SCSBDEF ; Cluster system block 
00 91 SCSDDEF 3; Cluster server data 
00 8 SCSPDEF 3 CSP communication codes 
8 9 SDYNDEF : Dynamic date structure types 
94 SIODEF ; 1/0 function codes 
00 95 SIPLDEF : Interrupt priority levels 
00 38 SIRPDEF : 1/0 request packet 
00 9 SSBDEF 3; System Block 
00 98 STQEDEF ; Time queue entry 
00 99 SUCBDEF 3 Unit control block 
4 100 SVADEF ; Virtual address fields 
000 101 
0000 1 ¢ 3 
44 105 ; The cycle count insures that we will not get burned by race conditions 
800 Ie 3 and not see another cluster through the quorum disk. 
00000002 44 106 CYCLE_COUNT = 2 
000 107 
0000 108; 
44 + 4 4 ; The following assumptions are in effect for the entire module 
0000 111 ASSUME IPLS$_TIMER EQ JPL$_SYNCH 
0000 Vig ASSUME IPL$_TIMER L$_ 
0000 11 ASSUME CLUDCBS$S_BUFFER EQ°C yy LENGTH 
Bo08 113 ASSUME CLUQFSK_CHECK_LENGTHE3 EQ 0 
$000 116 -DEFAULT DISPLACEMENT WORD 
0000 =—11 
44 118 3 
00 119 ; Own Storage 
444 120 ; 
0000: Obp : 1 -PSECT $$$060,LONG 
4 1 5 CLUQF_IDENT_STRING: 
45 4C 49 46 20 20 4D 55 52 4F 55 51 00 124 ASCII /QUORUM FILE/ 
00c 125 ASSUME CLUQFS$S_IDENT EQ .-CLUQF_IDENT_STRING 
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-SBTTL CNXSQUORUM_INIT = Quorum initialization 
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CNXSQUORUM_INIT = Quorum initialization 

FUNCTIONAL DESCRIPTION: 
This routine determines if a quorum disk has been specified, 
and if so allocates and initializes the cluster quorum disk 
control block (CLUDCB) and associated data structures. 

CALLING SEQUENCE: 


JSB/BSBx CNXSQUORUM_INIT 
IPL is 31 


INPUTS: 
NONE 
OUTPUT: 
NONE 
SIDE EFFECTS: 
RO-R5 are destroyed 
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bad 


0000 -PSECT $$$002,LONG : Initialization PSECT 
CNXS$QUORUM_INIT:: 
OFCO 8F 6B PUSHR #*M<R6,R7,R8,R9,R10,R11> ; Save registers 
4 ; Determine if we have a quorum file 
10 20 3A 4 ; LOCC #*A/ /,#CLUDCBSS_DISK_QUORUM,- ; Locate end of quorum disk name 
00000000" GF 7 G*CLU K ; 
10 50 01 C CMPL RO, #CLUDCB$S_DISK_QUORUM ; Is there a disk name? 
03 12 F BNEQU 1$ ; Br if yes 
OOA7 ‘31 1} BRW 
14 : Allocate the CLUDCB 
51 00000229 8F po 14 is: MOVL #CLUDCBSK_LENGTH,R1 ; CLUDCB size 
00000000" F (16 18 JSB G*EXESALORONPAGED : Allocate CLUDCB 
25 50 6 BLBC RO,2$ :; Br error 
56 1 D 3 MOVa R1,R6 ; Save CLUDCB size and address 
4 : Allocate the IRP 
51 4's $54 8F 00 7 MOVL #IRPSK_LENGTH,R1 ; IRP size 
0 09" F 16 ’ JSB GrEXE SALONONPAGED : Allocate IRP 
12 50 5 BLBC RO,2 ; Br if error 
58 1 D mova R1,R8 ; Save IRP size and address 
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68 5A 00 


6E 90 
08 AB A 
OA AB OOF 

AB. 05 

OC AB 0000'CF 
10 ABS? 

54 00000000' GF 


52. 00000000 ' GF 
00 00989680 8F 52 
20 AB 


00B4 (4 «= 557 
50 00000000' 8F 
OFCO 8F 
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MOVCS 
MOV 
MOVB 
MOVB 


CLUB to 
MOVL 
MOVL 


POPR 
RSB 


: Point 
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4 ; Allocate the TQE 
MOVL  #TQESK_LENGTH,R1 
J$B G*EXESALONONPAGED 
MOVQ = R1, R10 
BLBS R0.3$ 
2$: BRW 5 
3; Initialize the CLUDCB 
$$: MOVCS #0,(SP),#0,R6,(R7) 
MOV R6 CLUDCBSU ${£2ZE(R7) 
MOVB #DYNSC_CLU,CLUDCBSB_TYPE(R7) 
MOVB #DYNSC~CLU CLUDCB,- 
CLUDCBSB_SOBTYPE (R7) 
MOVL R cLUDCBSL IRP(R7) 
MOVL R11, CLUDCBSC_TQE(R7) 
MOVW  #CLUDCBSM_QS"NOT READY,- 


: Initialize the 1RP 


#0, (SP) ,#0,R8, (R9) 

RB, IRPSW_SIZE(RI) 
#DYNSC_IRP, IRP$B_TYPE(R9) 
#*XFF,TRPSB_PRI (RO) 


; Initialize the TQE 


#0, (SP) ,#0,R10, (R11) 
ri6, Toae$w §1ZE(R11) 
#DYNSC_TQE, TOESB_TYPE(R11) 
#TQESC-SSREPT, TQESB_ROTYPE(R11) 
QUORUM TIME QUE TOESC_FPC(R11) 
TOESL_ER (R11) 
“€LUSGL~CLUB,R4 
R4, TOESL-FR4(R11) 
G*€LUSGW~QDSKINTERVAL ,R2 
R2,#10000000,40,- 
TQESQ_DELTACA115 


CLUDCB 
R7, CLUBSL_CLUDCB(R4) 


#SS$_NORMAL RO 
#°M<R6,R7,R8,R9,R10,R11> 
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TQE size 

Allocate TQE 

Save TQE size and address 
Br if success 


Zero the CLUDCB 
Store size 
Store type 
Store subtype 


Store IRP address 
Store TQE address 
Initial state is NOT_READY 


Zero the IRP 
Store size 
Store type 
Store priority 


; Zero the TQE 
; Store size 


Store type 

Store request type 

Set up timer request fork PC 
Store fork register three 

Get CLUB address 

Store fork register four 

Get timeout value. (in seconds) 
Convert timeout to 100ns units 
---and store in TQE 


Store CLUDCB pointer in CLUB 


; Return success 
; Restore registers 
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» SBTTL QUORUM_TIMEOUT = Quorum timeout 
QUORUM_TIMEOUT = Quorum timeout 
FUNCTIONAL DESCRIPTION: 


This routine executes every n seconds as a fork process where n is 
determined by the sysgen parameter ODSK INTERVAL. 


CALLING SEQUENCE: 
JSB QUORUM_TIMEOUT 
INPUTS: 
R3 = address of CLUDCB 
R4 = address of CLUB 
RS = address of TQE 
OUTPUT: 


RO-R2 Destroyed 


-PSECT $$$100,LONG 
QUORUM_TIMEOUT: : 


; Save R6 

; Br if we already timed out the 
; -1/0 in progress 

: Get buffer address 

; Br if no write in progress 


R6 
#CLUDCBSV_OF 
CLUDCBSW_FLAG 
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DPX DPPEDPMA Ans PPP PLL 


T 
; 
#CLUDCBS W 
CLUDCBSW Flats 
SLUGF SB. IGNORE ; Invalidate buffer 

R 

S 

T 

S 

G 


; Br if no read in progress 
; Set timeout bit 


CLUD 
CLUDCESA FLAGS(R 
DTIMOOT MSG.R ; Point to timeout message 
QUORUM. DISR_TIME ; Process timeout error 


CLUDLERL QS_NOT_R ; Br if we are in one of the 
cute w) STATECRS), > «s-Peady states 


#CLUDCBSV_OF 
CLUDCBSW_FLAG 
a CBSA_OF 


OoProorrorrcowu 
—W NAW 


IM 
(R 
R¢ 
IP 
(R 
(R 
IP 
(R 
IM 
( 
M 


3 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: 
0 
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READ QUORUM FILE ; Queue a quorum file read request 
(SP)F,R6 ; Restore R6 
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: »SBTTL READ_QUORUM_FILE = Queue a read to the quorum file 
§ ; READ _QUORUM_FILE = Queue a read to the quorum file 
; § 3 FUNCTIONAL DESCRIPTION: 
8 oy : This routine oduilds and queues an IRP to read the quorum file. 
0 : 38 3; CALLING SEQUENCE: 
: 3 3 JSB/BSBx READ_QUORUM_F ILE 
8 38 3: INPUTS: 
3 9 7 3 
9 98 ; R3 = address of CLUDCB 
: + : R6 = address of quorum file buffer 
a0 9 84 : OUTPUT: 
039 8 3 
Boe 03 ; RO-R2 destroyed 
0039 05 
Onte 8 READ_QUORUM_F ILE: 
38 «BB 0039 08 PUSHR #*M<R3,R4,R5> ; Save registers 
02 a8 00 09 BISW  #CLUDCBSM’QF RIP,- : Set read in progress bit 
22 A 00 D 310 LUDCB$W_FLAGS(R3) 
52 110A dO F 11 MOVL CLUDCBSL_IRP(R3) ,R2 ; Get IRP address 
Of A2  0097"CF DE 0043 1 MOVAL READ COMPLETE RPSL _PID(R2) : Store completion address in PID 
55 OC AS D0 0049 «31 MOVL CLUDCBSL CB(R3),R : Get UCB address 
1C Ag 5 DO 0040 14 MOVL R5,IRPS$L_UCB(R2) 3; Store UCB address 
20 a2 0C) «= BO (0051S 315 MOVW =: #10 READPBLK, IRPSU_FUNC(R2) : Store function code 
2A As B4 0055 16 CLRW IRPS$Q_STS(R2) ; Mount verification bit may be set 
6 68 AS 0 E0 bose 17 BBS #UCBSU_NOCNVRT uUCBSW DEVSTS(RS),1$ ; Br if logical 1/0 
2A A2 0100 ar 0 05D 18 MOVW #IRPSM~PHYSIO, [RPSW_STS(R2) 3; Set physica 1/0 flag in IRP 
2A2 02046 BF 3C 006 19 1$ MOVZWL #CLUQFSK_LENGTH,IRPSL_BCNT(R2) : Store byte count 
30 A2 56 FEOO 8F AB 8595 y BICcw3 Waban ear ta > Rb 3; Store buffer start byte offset 
51 56 15 O99 EF o70 § EXTZV #VASV-VPN,#VASS_VPN,R6,R1 :; Get buffer virtual page number 
50 —00000000'GF 00 007 MOVL GONMGSGL _SPTBAS oR : Get SPT base address 
C A2 43 07C 4 MOVAL (RO)CR1IJ,IRPSL tl Na 3; Store PTE address 
0 1¢ D 081 5 MOVL sLUB BSL_QFLBNTR3) ,R ; Get logical block number 
53 DO 0085 § MOVL R2,R ; Set up IRP address 
90000000" GF 16 88 JSB G*f{OCSCVTLOGPHY : Convert LBN to PBN 
0000000 * GF 1 E 8 JSB G*EXESINSIOQ 3 Queue the request 
8 aa 94 9 POPR #*M<R35,R4,R5> ; Restore registers 
5 0096 0 RSB 
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7+ ie READ_COMPLETE = Quorum file read complete 
; READ COMPLETE = Quorum file read complete 
FUNCTIONAL DESCRIPTION: 
This routine is called when the quorum file read completes. 


pejejlelelelejlolelelol eo) 
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U 
Pp 
? ; 
7 3 
7 : 
4 3 
f re 3 CALLING SEQUENCE: 
4 tg 3 JSB READ_COMPLETE 
097 44 : Called as a fork process by IOCIOPOST at IPL$_IOPOST 
444 6 : INPUTS: 
3 = address o 
Bae *3 RS dd f IRP 
0097 29 3 OUTPUT: 
0097 26 3 RO-R5 destroyed 
Br i 
0097 355 READ_COMPLETE:: 
00CO 8F BB 0097 56 PUSHR #*M<R6,R7> ; Save registers 
54 1C AS DO 0098 57 MOVL IRP$L_UCB(R5) ,R4 ; Get UCB address 
6A AG «B7OO09F 38 UCBSW~QLEN(R4S > Decrement device queue length 
Boag 5 SETiP! #IPL$_TIMER ; Raise IP 
54 90000000" GF dO OA 60 MOV G*CLUSGL_CLUB,R4 ; Get CLUB address 
5 0084 C4 dO AC 61 MOVL CLUBS$L_CCUDCB(R4) ,R3 ; Get CLUDCB address 
56 25 A3 DE 0081 6¢ MOVAL CLUDCBST BUFFER(RS) ,R6 : Get quorum file buffer 
0¢ AA 0085 6 BICW #CLUDCBSA_QF _RIP,- ; Clear read in progress bit 
32 A 0B7 364 CLUDCBSW_FLAGS (RS) 
50 0000'CF 4 0B9 65 MOVAB W*“QDRDERROR_MSG,RO 3; Assume read error 
0 € 0B 96 #CLUDCBSV_QF_TIM,- ; Br if read has not timed out 
13 32 A Oc é CLUDCBS$W FLAG (RS) ,10$ 
50 38. A 8 00C 68 BLBS IRPSL_IOSTI(R5) 40$ : Br if read was successful 
035C¢ 0 0O0C 69 BSBW CHECK_ERROR : Is error fatal? 
4A 50 €8 CA 70 BLBS RO,408 3; Continue 
1 B60 00CD 71 MOV #CLUDCBSM_QS_NOT_READY,- ; Set state to not ready 
20 sr CF i CLUDCB$W_STATE(R3) 
a 
15 3 a3 D6 75 108: BLBS IRP$L_IOST1(R5) ,14$ :; Br if no read error 
34 DA 6 BSBW CHECK_ERROR ; Is error fatal? 
37 50 3 DD 7 LBS RO,408 3; Continue 
50  0000'CF E 78 MOVAB W*QDRDERROR_MSG,RO : Read error 
05 € E 79 S$ #CLUDCBSV aF FIRST ERR. ; Is this first error 
15 22 A E 0 CLUDCBSW_FLAGS(R3)>20$ 
02E 39 eA 1 pseu Q QRUA_FILE_RETRY : Process error 
§ E5 EF 5 14$: BBCC #CLUDCBSV_QF FIRST ERR. ; Clear any previous error 
00 25 A Fl 4 CLUDCBSW_FLAGS(R3),15$ 
2 3 F4 5 15$: BSBW VALIDATE_QUORUM_F ILE 
A F7 § BLBS : Br if quorum file valid 
50  0000'CF FA MOVAB W*QDINVDAT_MSG,RO ; Point to invalid data message 
208 FF 8 20$:  BSBW  QUORUM_FILE_ERROR ; Process error 
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1 11. 01 9 B98 40$ 
04 =O EA Q1 30$: FFS #CL Ubcesu. QS_READY,#4,- ; Get relative state bit position 
50 20 A 1 CLUDCBSW STATECR »-RO- 
51 01 ett 3 10A MOVA DISPATCH, ; Get dispatch table adéress 
51 O11B'CF40 «6C¢ 10F 9 ADDL DISpATCHG ROJ,R1 : Form routine addres 
61 16 113 94 JSB (R1) ; Dispatch to routine 
11 95 40$ SETIPL #IPL$_IOPOST ; Restore IPL 
00CO 8F BA 11A 36 POPR #*M<RB,R7> ; Restore registers 
BE oe 
00000010" O11F 99 DISPATCH: «LONG READ_COMPLETE_READY-DISPATCH 
Beppe ay 81 ; 180 «LONG READ_COMPLETE_ACTIVE=DISPATCH 
00087' 01 401 -LONG READ_COMPLETE_CLUSTER=DISPATCH 
00000087" 0128 402 «LONG READ_COMPLETE_VOTE=-DISPATCH 
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-SBTTL READ_COMPLETE_READY = Read complete processing for READY state 
READ_COMPLETE_READY = Read complete processing for READY state 
FUNCTIONAL DESCRIPTION: 


This routine performs the read complete processing specific 
to the READY state. 


CALLING SEQUENCE: 

JSB/BSBx READ_COMPLETE_READY 
INPUTS: 

R3 = address of CLUDCB 

R4 = address of CLUB 

R6 = address of quorum file buffer 
OUTPUT: 


RO-R2,R5 Destroyed 


READ_COMPLETE_READY: 


MOVW #CLUDCBSM_QS_ACTIVE,- 


Set state to active 
CLUDCB$W_STATE(R3) 


BICW #CLUDCBSA_QF_ERROR,- ; Clear error reported bit 
CLUDCBSW_FLAGS(R3) 
MOVL CLUQFSL_ACT_COUNT(R6) ,- : Save activity longword 


- OUNT(R3 

MCOML #0,CLUBSC_FOREIGN_CLUSTER(R4) ; Fill shift register with 1's 

BISL #CLUBSM ACTIVE,- 3; Set active bi 
CLUBSL_FLAGS(R4) 

MOVAB W*QDCOR_MSG,RO 


3; Point to connect message 

CLRL ; No CSB 

BSBW CNXSCONF1IG_ CHANGE ; Output message 

BSBW CNKSO ISK CRANGE 3 Let connection menager know 

BBC #CLUBSV_CLUSTER,- ; Br if local node not a 
CLUB$L_FLAGS(R45 ,1$ 3 ...cluster member 

MOVW DCBSM_QS CLUSTER. - : Set state to cluster 
CLUDCBSW_STATE(R ) 

CLRB et oy COUNTER(R3) ; Clear counter 

BICL #CLUBSM_GF FALL ED NODE = ; Clear failout bit in CLUB 
CLUBSL_FLAGS(R4) 

BSBW $$ BUILD_GUORUM_FILE ; Build the owner & activity blocks 

tr WRITE_QUORUM_OWNACT 3; Write the owner & activity blocks 
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BTTL READ_COMPLETE_ACTIVE = Read complete processing for ACTIVE state 
READ. COMPLETE_ACTIVE = Read complete processing for ACTIVE state 
FUNCTIONAL DESCRIPTION: 


This routine performs the read complete processing specific 
to the ACTIVES state. 


CALLING SEQUENCE: 
JSB/BSBx READ_COMPLETE_ACTIVE 


mi 
m 
ro 
ou 
So 


fo lelol ale lelelelealeleleleleleleleleleleleleleleleleleleleoleleleoleloleleleleol ole olo ool ~- Mi ara! 


INPUTS: 

R3 = address of CLUDCB 

R4 = address of CLUB 

R6 = address of quorum file buffer 
OUTPUT: 


RO-R2 Destroyed 


TP Se Se He Be Oe Se Os Be Se Be Se Be Se Se Se Se Se Se Se Se tsss 


EAD_COMPLETE_ACTIVE: 


“ 
REAR RRR R ERE PE EPP PEPE PEE mS 


ee ee ee ee ee ee ed a ed ad dD 
DS PS OOOO 009 09 09 09.09 SI NII PAPA AAA A AAA AA AAA AAA AA AAA Onn 
WAT DS OPN ™ &S COOUMVO F NVUINOM MMMM MMM MMmmmmMmmmmmmmmrmrnrncrnecnecvicvricvyec riers 

WO OOOO OO 10000009 09 09 69 09 09 09 09 SII NINN SIN PAA AAAAAASUIUIUIUI =f 
DNAS WIN 9 OD NAMU ES WIN OC OONAU EWN OOD NAME WI OOD NOUNS 23 


00. =«€1 BBC #CLUBSV_CLUSTER,- ; Br if local node not a 
17 1C a4 CLUBSL_FLAGS(R4S ,1$ : ...cluster member 
0 B0 MOVW #CLUDCBSM_QS CLUSTER, - ; Set state to cluster 
3 A CLUDCB$W_STATE(R3) 
SA 94 CLRB CLUDCB$B_COUNTER(R3) ; Clear counter 
01000000 8F CA BICL CLUBSM_GF_FAILED_NODE,- ; Clear failout bit in CLUB 
1C AG CLUBSL_FLAGS(R4) 
070 0 BSBW BUILD_GUORUM_F ILE ; Build the owner & activity blocks 
00g? + eae ye ite. QUORUM_OWNACT 3; Write the owner & activity blocks 
00c8 C4 —CO1sisés7'8: 1$ ASHL MOT tat Sean CLUSTER(R4),- ; Assume no activity 
00C8 C4 Sirty CLOSTER(R4) 
0200 C6 D1 CMPL CLUQF ar rt TOON FRO) - 3 Activity longword change? 
18 A cLUDCB C_ACT_ COUNT CR3S 
$6 1 BEQLU ; Br if not 
00C8 C4 es, BISL ARES BSL pose iy CLUSTER(R4) ; We have seen a foreign cluster 
0200 é D MOVL CLUQF$L_ACT_COUNTTR6) ,- ; Save activity longword 
18 A CL UCBs ACT_ CCOUNT (RSS 
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» SBTTL READ_COMPLETE_CLUSTER/VOTE = Read complete processing for CLUSTER and VOTE s 


READ_COMPLETE_CLUSTER = Read complete processing for CLUSTER state 
READ_COMPLETE_VOTE = Read complete processing tor VOTE state 


FUNCTIONAL DESCRIPTION: 


This routine performs the read complete processing specific 
to the CLUSTER and VOTE states. . , 7' 


CALLING SEQUENCE: 


JSB/BSBx READ_COMPLETE_CLUSTER 
JSB/BSBx READ_COMPLETE_VOTE 


INPUTS: 

R3 = address of CLUDCB 

R4 = address of CLUB 

R6 = address of quorum file t ffer 
OUTPUT: 


RO-R2,R5 Destroyed 
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EAD_COMPLETE_CLUSTER: 
EAD_COMPLETE_VOTE: 


BBCC an QF _FAILED_NODE,- ; Br if node was not failed out 


MOVW #CLUDCESA Qs CL TER. : Set state to CLUSTER 


CLUQF$B_ IGNORE (R6) 
BSBW  CHECK_OWNER 
INCB CLUDCB$B_COUNTER(R3) 


@o 

So 
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_ 
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: Is data in quorum file stale? 
; Br if yes 

; Determine who owns quorum file 

; Br if not a member of my cluster 
: Increment counter 


e 
OOAA gsBu YRITE_QUORUA_ACT ; Write the activity block 
50  0000'CF 2s MOVAB 


goer ORCL US FE AO 


BSBW § CNXSCONFIG_CHANGE 
BBS #CLUQFS$V_QOORUM, - 
CLUQF $W_FLAGS (R6) ,3$ 


; Point to foreign cluster message 
; No CSB 


; Output message 
; Bugcheck if he has dynamic quorum 


No 
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EO BBS #CL RUM,- ; Continue if we have dynamic quorum 
13, 1¢ A4 CLUBSL FLAGS (R4) ,4$ 
6 B1 CMPW CLUQF$@_VOTES(R65 ,- ; Does he have static quorum? 
LUQF SU QUORUM (R65 
1E BGEQU :; Br if yes 
§ AG OBI CMPW CLUBSW_VOTES(R4) ,- ; Do we have static quorum? 
AG UBSW~QUORUM(R4 5 
99 BGEQU ; Br if yes 
rey 4 3$ Boat GUXSBUGCHECK. CLUSTER ; Cause all nodes to bugcheck 
24 A435 94 4$ CLRB CLUDCBSB_COUNTER(R3) ; Clear counter 
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BSBW BUILD_QUORUM_FILE 


35 5$: 


BSBwW WRITE-QUORUM_OWNACT 
RSB 
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eSBTTL BUILD_QUORUM_FILE = Build the quorum file owner and activity blocks 
BUILD_QUORUM_FILE = Build the quorum file owner and activity blocks 
FUNCTIONAL DESCRIPTION: 

This routine builds the quorum file owner and activity blocks. 
CALLING SEQUENCE: 

JSB/BSBx BUILD_QUORUM_F ILE 
INPUTS: 


R4 = address of CLUB 
R6 = address of quorum file buffer 


OUTPUT: 
RO-R2 destroyed 


UILD_QUORUM_F ILE: 


= = § *~QOODOGDOOOO OOOO OOOO O00 00 09 09 09 09 09 09 08 INI NISSEN A AAO AAO 
PANO OD NAUNE WIN 9 OD NAN EWN 9 OS OO NAN E WIN O OO NAUE W  OOWONOU ESE Win 


DEPP BPP DP PP PAP PAPADPED PPPS PSPSPS SVS VSS VSS USS ISIS TOS ISIS ISIS TOSS 


ASSUME CLUQFS$K_VERSION EQ 2 3; Assume version 2 structure 
ASSUME sees Sag ’sie nie AS 6 3; Assume system ID is 6 bytes 
0088 8F 5 PUSHR 4,R5,R/> 3; Save registers 
2 MOVC3 sc unt $e DENT,- : Store IB string 
66 0000°CF CLUQF PODENT. STRING, (R6) 
° 53 00 MOVL ; RO = current buffer Pte pet 
5 f 7D MOVQ 3; Restore CLUDCB and CLUB pointers 
80 6 B0 MOVW Serer er -VERSION, (RO) + : Store QF version number 
80 1 60 MOVW #CLUQFSM- os 0)+ 3; Assume we have dynamic quorum 
1c = EO 08 BBS #CLUBSV ; Br if we do have dynamic quorum 
03 1¢ Aé 0D CLUBSL VAUD 1$ 
FE AO 4 1 CLRW (RO)~ 3; Fix the incorrect assumption 
0 ¢c AG D 1 1$ MOVQ CLuBsa FTIME(R4) , (RO)+ ; Store FOU_TIME 
CAS 7D 1 MOVQ CLUBSQ-LST TIME (R4) (RO)+ : os My TIME 
80 90000000 GF 7D 021 MOV = G*EX esa “SYSTIME , (RO) + Store GF_TIME 
80 0000002C'GF 7D mova G*SCSSGAe LOCAL SB+SB$Q_SWINCARN, Rte ; “store SWINCARN 
0 AG 00 MOVL CLUBSL -L0 AL_CSID(R4) } tore CSID 
0 AS OB Dd MOVW CLUBSW UORUA CRS) Cross. Store cluster quorum 
0 Aa OB 1 MOVW CLUBSW- vores $(R4), (RO) + Store cluster votes 
0 "GF D 5 MOVL 6“*SCS GA_LOCALSB+SB$B_SYSTEMID, ( cha} 3; Store system ID 
0 1C°GF 8 MOVW G“*SCS$GA_LOCALSB+SB8$8_SYSTEMID+ 4, (RO)+ 
; 6A4 D 4 MOVL CLUBSB_FSYSID(R4) , (ROT+ 3: Store FSYSID 
AM B 4 MOV cLUBSB_ “FRyS1D+4CRE) (RO 
68 D4 4B CLRL (RO) : Initialize chockaus 
04 A 3 4D CLRB 4(RO) : Zero the tgrere 7 lag 
O19f | 29 BSB CALCULATE_CHECKSUM : Calculate the owner Seck checksum 
8 7 #O MOVL R7, (RO) ; Store checksum 
4 £6 06 56 INCL CLUQF $L aac Count (RG) : Increment the activity counter 
0B8 8F BA ¢e 41% #*ncr3, »R7> ; Restore registers 


vO4=000 Quorum 
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» SBTTL Quorum file write routines 


x WRITE _QUORUM_OWNACT = Write the quorum file owner and activity blocks 
; WRITE-QUORUM_ACT = Write the quorum file activity bloc 


ODULE 
te routines 


WII = -h 


es Bea Bn bea 


FUNCTIONAL DESCRIPTION: 


This routine builds and queues an IRP to write the owner and activity 
block or just the activity block to the quorum file. 


CALLING SEQUENCE: 


JSB/BSBx WRITE_QUORUM_OWNACT 
JSB/BSBx WRITE-QUORUM_ACT 


INPUTS: 


R3 = address of CLUDCB 
R6 = address of quorum file buffer 


M 

ri 

ze 

3 

0 

1 

g 

4 

5 

; 

; 

0 

1 

g 

4 

5 

$ OUTPUT: 
3 RO-R2 destroyed 
? -ENABLE LSB 
; WRITE_QUORUM_OWNACT: 
3 
7 
8 
9 
0 
1 
5 
4 
5 
; 
8 
9 
0 
1 
§ 
4 
5 
; 
: 
? 
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0078 8F PUSHR #*M<R3,R4,R5,R6> Save registers 


PNMIOOCCCOCPVUMATTN NTH HHH ono 
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0 3 
0 4 
0 4 
0 4 
0 4 
BB OO 4 
7E Be 0 4 CLRL -(S ; Quorum file block 0 
7E 0204 8F . < 46 MOVZWL #CLUQFSK_LENGTH,-(SP) ; Byte count 
11 11 0 2 BRB 1$ 
¢ WRITE_QUORUM_ACT: 
0078 8F 6B 5 PUSHR #*M<R3,R4,R 3: Save registers 
56 0200 C6 DE 5 MOVAL  CLUQFSL whi > COUNT (RE) R6 ; Get act vity block address 
6 06 5 INCL - 6) : Increment t 4 cert vity counter 
7E 1 9A 5 MOVZBL (SP) 3; Quorum file b 1 
7E 4 OA 5 MOVZBL actuarsK ACT_LENGTH,=(SP) ; Byte count 
4 As 56 1$ ISW CLUDCBSA_QF-WIP,- ; Set write in progress bit 
22 a3 5 UDCBSW_FLAGS(R3) 
A dO 5 VL CLUDCBSL_IRP(R3) ,R2 3 Get IRP address 
OC A2_. O2DA'CF OD 5 MOVAL WRITE COMPLETE TRPSL_ PID(R2) 3; Store completion address in PID 
0c AS D 6 MOVL  CLUDCB -UCB CRS) -R ‘ : Get UCB address 
i 4g 5 D 6 MOVL it we UCB(R2) 3; Store UCB oqeress | 
A 8 6 MOVW  #10$ WRITEPBLK,IRPSW_FUNC(R2) : Store function fone 
2A A BS 6 CLRW IRP$Q_STS(R 5 : Rount ver eigat on bit may be set 
AS E 6 BBS #ucBs? _NOCNVRT tt: ~~’ wststka) os ; r itt Lopice 4 1° 
2A A2__ 0100 BF CB : MOVW #IRPSM-PHYSIO [RPS (R2) F ai, > hystces t7 lag in IRP 
2 A2 i D 2s: MOVL.  (SP)+ * TRPSL BC BtNT : Store byte coun 
30 a2 56—SsC* FEO AB 6 BICW3 ag - : Store buffer a byte offset 
1, » 09 =séEF é EXTZV #VASV"VPN ise VPN,R6,R1 3; Get butter virtual page number 
any GF dO MOVL By So, SPT ; Get SPT base address 
aa OF 7 MOVA RO)LR IRP y SVA PTE(R2) : Store PTE addre 
C 7 ADDL (SP)+ CLUDCBSL~ “QFLBN(R3) ,RO ; Get logical block number 


3 
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3 52 D 6 73 MOVL R2,R3 : Set up IRP address 
8000 ‘GF = C 74 JSB G6* fOCSCVTLOGPHY 3; Convert LBN to PBN 
: } 16 CF 75 JSB pas ary ; Queue the request 
F A D5 978 POPR #*M<R3,R4,R5,R6> ; Restore registers 
5 D9 of RSB 
DA 4 
DA 67 -DISABLE LSB 


QUOR - DISK QUORUM MODULE 16-SEP-1984 00:37:37 VAX/VMS Macro Vv04-00 Pp 17 
voen000 URITE COMPLETE ~ Quorum file write compl S-sep-198¢ Oaitiit9 eNet OS eee SGubccm gens: ame (13, 
” é - SBTTL WRITE COMPLETE = Quorum file write complete 
DA 683 3 WRITE_COMPLETE = Quorum file write complete 
DA 6 5 3 FUNCTIONAL DESCRIPTION: 
Be ? § ; This routine is called when a quorum file write completes. 
DA ss : CALLING SEQUENCE: 
DA 31 : JSB WRITE_COMPLETE 
+ 638 ; Called as a fork process by IOCIOPOST at IPL$_IOPOST 
DA 695 : INPUTS: 
4 637 ; RS = address of IRP 
DA $99 > OUTPUT: 
DA 701; RO-R4 destroyed 
es 
O2DA pe WRITE_COMPLETE:: 
54 1C AS i!) DA 705 MOVL IRPS$L_UCB(R5) ,R4 ; Get UCB address 
6A AG B7 4 O86 BSW_QLEN(R4S : Decrement device queue length 
E 70 SETIPL #IPL$_TIMER ; Raise IPL 
54 90009000"6F DO E4 708 *CLUSGL_CLUB,R4 ; Get CLUB address 
53 00B4 C4 00 O2EB 709 CLUBSL_CCUDCB(R4) .R3 : Get CLUDCB address 
AA 4) 710 BICwW2 eC. UOCasn QF _WIP,- ; Clear write in progress bit 
22 A3 F271 LUDCBSW_FLAGS(R3) 
50 0000'CF 4 F4 ay MOVAB W*QDWRERROR_MSG,RO ; Point to write error message 
00 E F971 CLUDCBSV_QF_TIM.- ; Br if write has not timed out 
13 32 A FB O714 CLUDCBSW_FLAGS(R3) ,10$ 
51 38 a5 &8 FE 715 BLBS = IRESL_IOST1(R5) , 30$ : Br if write was successful 
o*¢ 0 8 0 £18 BSBW ener ERROR :; Is error fatal? 
48 50 €8 0 71 BLBS RO,30 3; Continue 
01 B60 0308 718 MOVW #CLUDCBSM_QS_NOT_READY,- ; Set state to not ready 
20 A3 OA 719 CLUDCB$W_STATE(R3) 
0103 30 4 4 9 pseu REQUEST_CSP ; Request the CSP process 
1A 38 i 8 11 7 § 10$: BLBS IRPSL_IOST1(R5) ,20$ ; Br if write success 
g108 |} oe BSBW CHECK_ERROR : Is error fatal? 
008 5 4 18 if 4 BLBS R 3; Continue 
50 O'cr : 1 5 MOVAB WGDWRERROR_MSG,RO : Point to write error message 
3 E 7 $ BBSS  #CLUDCBSV_QF_FIRST_ERR,- : Is this first error 
05 22 A 7 CLUDCB$SW_FLAGS(R3)715$ 
0088 30 ; f 8 pseu QUORUM_FILE_RETRY ; Process error (retry) 
0040 79 . f 2 15$: oaae Sy geUr FILE _ERROR ; Process error 
F 7 § 208: ASSUME CLUDCBSM_QF_WRL_ERR LE 255 
40 8F 8A F 7 BICB eC UDCBSA QF _WRC_ERR,- : Not write locked 
22 AS ¢ 734 LUDCBSW_FLAGS(R3) 
04 £0 735 BBS #CLUDCB$7_QS yore ~ : Br if state = VOTE 
1A 20 A3 é 7 6 CLUDCB$W_STATE(R35 , 30$ 
02 91 7 CMPB #CYCLE_COUNT,- ; Have we cycled enough? 
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QuOR = DISK QUORUM MODULE 16-$ ~ 4 7:37 VAX/VMS Macro v04-00 Page 1 
voe-000 WRITE COMPLETE = Quorum file write compl $78 1386 88: ij 4 SYSLOA. SRE REI0 QUORUM .MAR; 1 . RED 
24 re ; 2D ; nee yocess.. COUNTER(R3) i Me 
18 18 F 4 BBS erty $V_QF_FAI FP NODE ,- : Br if ; "neds has been failed out 
OF 1C A4 4) 4 ner of FLAGS(R4) ,30$ 
8 ” 46 28 eens bbe tit ea. See eee a8 oe 
40000080 of C8 ‘3 te BISL rs rai eyey ieee 3; Set dynamic vote bit in CLUB 
FCAD' 30 3 +8 BSBW ask, cH ; Let connection manager know 
47 308: SETIPL FPL 10P0S 3; Restore IPL 
05 56 748 RSB 
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»SBTTL VALIDATE_QUORUM_FILE = Validate quorum file 
; VALIDATE_QUORUM_FILE - Validate quorum file 
u 7 4 : FUNCTIONAL DESCRIPTION: 
4 § : This routine validates the contents of the quorum file. 
f £38 ; CALLING SEQUENCE: 
4 £69 ; JSB/BSBx VALIDATE_QUORUM_F ILE 
f ree : INPUTS: 
sf 164 : R6 = address of quorum file buffer 
2 766 : OUTPUT: 
35 768 : RO = status 
0357 769; 0 = The block is invalid 
B32) ooo ; 1 = The block is valid 
0357 17 : R1-R2 destroyed 
bee, bbe tm 
0 3 of? VALIDATE_QUORUM_F ILE: 
0088 8F BB 32) os PUSHR #*M<R3,R7> ; Save CLUDCB 
7 Be b328 78 CLRL - 3; Assume invalid buffer 
006¢ 0 0350 77 BSBW CALCULATE_CHECKSUM 3; Calculate quorum file checksum 
5 D5 8 rt 780 TSTL R7 3 Is checksum valid? 
11 is 6 781 BNEQ % ; Br not 
oC 2 8 64 7 ¢ CMPC #CLUQF$S_IDENT,- ; Validate ID area 
56 366 7 CLUQFS$T_TDENT(R6) 
0000' CF 0367 784 CLUQF_IBENT_STRIN Ne 
09 12 Q36A 785 BNEQU 1$ ; Br if invalid 
02 61 036C 786 CMPW #CLUQFSK_VERSION,- : Is version correct? 
0c Ag 36 787 CLUQF $W_VERSION(R6) 
0 is ; 788 BNEQU 1 ; Br if not 
ee oo »p 7 789 MOVL #1,(S 3; Indicate success 
0089 8F BA bse 790 1$: POPR PHCRO_RSR7> ; Return status and restore register 
05 0379 791 RSB 
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= ta CHECK_OWNER = Check quorum file ownership 
: CHECK_OWNER = Check quorum file ownership 

; FUNCTIONAL DESCRIPTION: 

This routine checks the quorum file owner 


CALLING SEQUENCE: 
JSB/BSBx CHECK_OWNER 
INPUTS: 


4 = address of CLUB 
R6 = address of quorum file buffer 


OUTPUT: 
RO = Status 
0 = Quorum file is owned by a torsten 
1 = Quorum file is owned by my clus 


R1-R2 Destroyed 
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HECK _OWNER: 
PUSHL R3 : 
CLRL. = = (SP) : 
CMPL CLUB$Q_FTIME+4(R4), : 

CLUQF$Q_FOU_ TIME +4 (RO) 
BNEQU '§ : 
CMPL  CLUBSQ_FTIME(R4) : 
CLUQF$0_FOU.TIME(R6) 
BNEQ 1$ : 
CMPC3 #CLUQFS$S_FSYSID,- : 
CLUB$B_FSYSID(R4),- 
ae cost 
BNEQU 3 
MOVZWL CLUQF$W_CSID_IDX(R6),R1 : 
CMPW Rie eLOSGU MARINDEX” : 
BGEQU§  1$ : 
MOVL GoCLUSGL _CLUSVEC.RO : 
MOVL (RO) : 
BGEQ 1$ : 
CMPL = CSBSL CS1D(RO) ,= : 
CLUGFSL_CS (R6) 
BNEQ 
CMPL §CSB$Q_SWINCARN(RO) ,- 
CLUOF SQ _SWINCARN(R6) 
BNEQU 1 : 
MOVL #1,(SP) : 
1$ POPR #*A<RO,R3> : 


AX/VMS Macro 
SYSLOA. Se 


v04-00 


Pa 0 
REI QUORUM .MAR; 1 ™ (fy 


block te see if it 


is owned by a member of this nodes cluster. 


cluster 


Save CLUDCB 
Assume foreign cluster 
Same high order foundation times? 


Br if not 
Same low order foundation times? 


Br ifn 
Same Soundine system ID's? 


Br ifn 

Get csp. index 

Is index in range? 

Br if not 

Get vector addre 

Get entry (Should be CSB address) 
Br if no en 

Do CSID's aetent 


; Br if not 
: Incarnation numbers match? 


Br if not 
Quorum file is owned by my cluster 
Restore CLUDCB 


B 14 
ODULE 16-SEP-1984 00:37:37 VAX/VMS Macro V04-00 Page 21 R 
HECKSUM = Calculate the quoru ae et 9 eet ets SYSLOA.SRCJQUORUM.MAR; 1 ° d vo 


QUORUM - D 
yo 000 CAL E 
» SBTTL CALCULATE_CHECKSUM = Calculate the quorum file checksum 
8 
8 


rx 
Pd 


TIVO OMOOOOOOOOAOOOOOOOOOOOOAOOOOOOOO +o 


FUNCTIONAL DESCRIPTION: 


This routine calulates the checksum of the querus owner block 


pointed to by R6. It includes the field CLUQFSL_CHECKSUM in the 


checksum calculation. 
CALLING SEQUENCE: 

JSB/BSBx CALCULATE CHECKSUM 
INPUTS: 

R6 = address of quorum file buffer 
OUTPUT: 

R7 = Quorum block checksum 


See Ge Ge Ge Se Ge Se Se Se Se Se Ge Sse Fete Se Sete tes 


CALCULATE_CHECKSUM = Calculate the quorum file checksum | 
CALCULATE CHECKSUM: 


MEW O OONAUES WN O OONAULS WN" 


OOOCCOCOCOCOCOCOCOCOCOOOCOCOOOOOGOOOCOOOOOOOoOo 
WAI WWII NINAI WWII AIIWINIAIAI AAA NWA 


COO NINN NSN NNN NAA AA AAAS AMM 


Oc 86«BB PUSHR #*M<R2,R3> ; Save registers 
52 12 00 MOVL  #CLUQFS$K_CHECK_LENGTH/4,R2 : R2 = checksum Longword count 
5 56 =6b0 MOVL R6,R35 3; Copy buffer address 
57 D4 8 R : Form checksum in R7 
57 83 3 9 1$: XORL2 (R3)+,R7 : Accumulate checksum 
FA S52 fF 0 SOBGTR P ; Br if more 
oc BA } 4% #*M<R2,R3> ; Restore registers 


C 14 
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» SBTTL Quorum file error routines 


; QUORUM_DISK_TIMEOUT - Quorum disk timeout 
; QUORUM_FILE_ERROR = Quorum file error 


: FUNCTIONAL DESCRIPTION: 


ro V04-00 Pa 2 
SYSLOA.SRCJQUORUM.MAR; 1 ye: (9) 


OCI NAUNE 


This routine handles timeouts and other errors associated 
with the quorum disk. 


CALLING SEQUENCE: 


JSB/BSBx QUORUM_DI 
JSB/BSBx QUORUM_F I 


INPUTS: 
R 
RS 
RG 
OUTPUT: 
RO-R2 destroyed 


-ENABLE LSB 


QUORUM_DISK_TIMEOUT: 
QUORUM~F ILE-RETRY: 


_TIMEOUT 
ERROR 


oCVUVOIVUOVUVT TV VTTVT9TVCT9T0C"U 


address of error message 
address of CLUDCB 
address of CLUB 


51 02 B60 MOVW #CLUDCBSM_QS_READY,R1 ; The new state is READY 
0B sO? BRE 1$ 
QUORUM_FILE_ERROR: 
50 OD PUSHL RO ; Save error message address 
0035 30 BSBW REQUEST_CSP ; Request the CSP process 
50 8E 00 MOVL (SP)+ 3; Restore error message address 
51 O01 BO MOVW § #CLUDCBSM_QS_NOT_READY,R1 : The new state is not ready 
4! BB 1$ PUSHR #*M<R5> 3; Save R 
Re CLRL RS ; No CSB (input to CNXSCONF1G_CHANGE 
7E _20 AS MOVZWL CLUDCBSW_STATE(R3) ,-(SP) 3; Save current state 
20 a3. 51—=o«B MOVW  R1,CLUDCBSW_STATE(R3) ; Update state 
+ € BBSS #CLUDCB$V_Q ERRORS ; Br if an error has already been re 
03 22 A CLUDCB$SW_FLAGS(R3),2$ 
FCO?" 30 BSBW CNKSCONE T6_CHANGE ; Output error message 
8E 03 OD 2s BITL #<CLUDCBSM_QS_NOT READY! - ; Was state NOT_READY or READY? 
CLUDCBSM_QS~READY>, (SP)+ 
13. «12 BNEQU $ ; Br if yes 
CA ICL #<CLUBSM_QF_ACTIVE! - ; Clear the CLUB bits 


CLUBSM~QF “DYNVOTE! - 
CLUBSM~QF ~FAILED_NODE>,- 
CLUBSL_FCAGS(R4) 


NW HHH MMM MHMMMMMMoOOVCVTVTVTVUVTVTVCVVTCVUVCTVUCVTUVUVTVTTCSO 
DAA AMMA OO QPF QA 278 0 D> DD DHSS SSIS 


NAME ANS ODNAU EWN 9 OD NAME WN 9 OO NAUE WN 0 OONAUES WR O 


1C AS 41000002 8F 
50 1:2 


PEF FAA AWANNAAA AWA AAAA AAA AANA WNWAAIAANININAANAAAIAI AI AAA AAA A NAA 


COOOCOOOOOOOSOGOOCOOCOOCOOCOO OOOO OOOCOOOCOOOOOOCOOOOO 
FP AAANAA.AAIAIGOPPNINPININIDINID 2 9 9 HM QOOOOOOOCOCOCOCVOOOOOOOOOOW@WO@owcw; 


WODOODODOOODOOOODOOOOOOOOODODOOOOODOOOODOOOOOOOO0O 


000 MOVAB W*QDDISCON_MSG,RO 3 Point to quorum disk disconnect me 
FBF2 3 BSBW CNXSCONF IG CHANGE ; Output message 
ie ‘ BSBW CNX$D1SK_CRANGE ; Let connection manager know 
0 BA 1 0 3$ POPR #*A<R5> ; Restore R 


voe-000 


= DISK QUORUM MODULE 
Quorum file error routines 


05 bets 34g RSB 
414 4 
414 4 «DISABLE LSB 


SSEP=1986 O4st1 19 


AX/VMS 
SYSLOA. 


cro v04-00 
Reda QUORUM .MAR; 1 


roe 


R 
Vv 


QuOR = DISK QUORUM MODULE -SEP-1 0:37:37 VAX/VMS Macro v04-00 Page 24 R 
yoee000 REQUEST_CSP = Request the CSP process “SEP=1 138 88 aie 7:19 (CSYSLOA.SRCJQUORUM.MAR; 1 (34) Vv 
+12 rf »SBTTL REQUEST_CSP = Request the CSP process 
414 ‘? ; REQUEST_CSP = Request the CSP process 
414 rk ; FUNCTIONAL DESCRIPTION: 
414 29 : If it has not already been requested, this routine requests the 
212 326 ; quorum thread of the CSP process. 
414 934 > CALLING SEQUENCE: 
414 $86 ; JSB/BSBx REQUEST_CSP 
4i4 938 : INPUTS: 
212 44 : R3 = address of CLUDCB 
414 6¢ OUTPUT: 
414 964 ; RO-R2 destroyed 
Bt i 
T 
ar ga ant R #*M<R3,R4> ; Save CLUDCB and CLUB pointers 
416 369 MOVL acSPS_ LOCAL, R1 ; Send to local CSP 
0419 970 CLRL ; No CSD pointer 
0418 971 CLRL 3; Must be zero 
UR CS Mey  Heaoest ESS. So 
b4 : 39% BOPR 3,R4> : iestare CLUDCB and CLUB pointers 
0425 975 RSB 
0426 976 


'S 
3 


VO4=000 CHE 


nw 

x 
Do 
zac 
oo 
zw 
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» SBTTL CHECK_ERROR = Check to see if error is fatal 

CHECK_ERROR = Check to see if error is fatal 

FUNCTIONAL DESCRIPTION: 
This routine checks the error status to see if we should steoly retry. 
We then cause a cluster state change and also cause mount verification 
to be invoked. This is necessary because the ‘‘internal’’ IRP 
format used by quorum I/Os does not trigger mount verification. 
In the case of accidental write-lock, quorum I/0 is retried. 

CALLING SEQUENCE: 
JSB/BSBx CHECK_ERROR 


INPUTS: 


PREP RRR RRR RRR PRR RPP PPP EE Om 


R3 = address of CLUDCB 
R4 = address of CLUB 
RS = address of UCB 


OUTPUT: 
RO = Status (low bit) 


= no recovery = normal error processing 
1 = non-fatal error 


CHECK_ERROR: 


1 
3 BB 1 PUSHR #*M<R1,R2,R3,R4,R5> 
51 38aAS 3 , ; MOVZWL IRPSL_IOST1(R5),R1 ; Get the error status 
1 : If the medium is offline, or the volume is 
‘ : invalid, the error can be recovered from. 
51 0000°8F 861 1 tmPw #SS$_MEDOFL,R1 ; Is the media (disk volume) offline? 
vc oe 1 BEQ 0$ ; Branch if true 
51 0000°8F 61 CMPW #SS$_VOLINV,R1 ; Is the volume invalid? 
30. =6'13 BEQL 40$ : Branch if true 


; If the volume has been writelocked, make sure tiat it was 

3 an accidental writelock. If the software writelock bit is 

3 on, then the volume was mounted with the volume write protected. 

3; If the bit is not set, then the volume has been mounted for 

3; read/write access, and has since been (accidentally) write protected. 
; The first time through this code and any time we are in the cluster or 
3; vote states, we put everything in mount verification and cause a 

; cluster state change and return to the active state, All other times, 
5 ve remain in the same state and quietly return. This saves many 

3 trees. 

¢ 


MPU #SS$_WRITLCK,R1 ; Is the device writelocked? 


DDD DD WD DW WD DW WD WD WD VPM DDODO DOP AAAPAA AAA AAA AAA A AAA AA AAA AAA AAPA AAS 


o 
PRR RER RR RRR RRR RR RRP RRR PPPS 
ae ee ee ee LL) 


DOOCOCDOCODOSCODDODOODOOOOOOOOOOOOOOOOO 
~~ 
ANIA A NIAAA NANI AI AIA AI PPR OPOPOPOPIPOPOPONPIPOPOPOPOPONPOPOPPUPOPUPOPIPOPONIPOPUPOPUPUPPURPORONNUND 


51 0000°8F B61 


~~ 
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10$ 
° RO ; Get an error code in RO 
; Go back to treat it as real error 
ice 3; Branch if software writelocked 
D 


; See if this is the first time 


; Restart counter in case in cluster state 
; Is it a dangerous state 

; No = leave it there 

; Point to write error message 

; Go try again 

; Error recovery in progress 


50 ; 
omer 
0 N 

04 

08 20 A3 
leg: 
et 


00000000’ GF 
EF 


Owmow 
PAA 


#°M<R1,R2,R3,R4,R5> 


~—. Wwrone 


——- OWOoWwOo mo 
o 
bad 


-fo WrPoom —& 


aaeaceeeatatas ; Get everyting in mount verification 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
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QUORUM 
Symbol table 


BUILD QUORUM _FILE 
AECL ERRORS SUM 


enter ~OWNE 
USGB 


AX INDEX 
CLUSGW~ ~ODSKINTERVAL 
CLUBSB_FSYSID 
CLUBSL-CLUDCB 
CLUB LAGS 
CLUBSL FOREIGN CLUSTER 
CLUBSL_LOCAL_CSID 
CLUBSM_ QF SACTIV 
CLUBSM_QF —DYNVOT 


E 
CLUBSM_QF “FAILED_NODE 
CLUBSQ_F TIME 


STER 
CLUBSV—QF _FAILED_NODE 
C V- QUORUM 
CLUBSW~ QUORUM 
CLUBSW-VOTES 
CLUDCB$B_ COUNTER 
CLUDCB$8_ SUBTYPE 


CL YPE 
CLUDCBSK “KET CO 
T_COUNT 


OF WIP 


CL UDEBSV 


L 
CLUDCB$W" SIZE 


RRRRREKE 
RReKKeee 
RAREKREEE 
RRERKEEE 
RReeeeee 


OOoooo 
Oooo 
Sooo 

™m 
o 


ooo 
SOoooooooooooooooooo 
SOooooooooooooooooo 


So 
oO 
oO 


—9O—OOo00 fo = —MOQNNIN — “DWN GOOAn— 


OOoOOCOCOCOOOSOSOOOSOOOOOOOSOO Lf OOCoOoOoO 
COOoOoooooooooooooscoSa 


COOOOoCoOooooo 


So 
oo 
Sooooooooo 


f—t=] 


Sooo 


Oooo 


Soooo: 


Sssssssssss 


WL OOO "UN & OD) $$ DL OF FIDO FOOCWOF DW LMOMWDOOMOMCOOVCOHOM & 


SOOCOOOCOoOOOOOOoOOoOoOSoSoSo 
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on 


WEEN ee 


se at ee es Ds Dat a Pes Os Os mw me FTV ET EMPTIES OOO OD FD AAAMAAAAAOONAOQAQAONAAOMAQNAAAOMQAAQAMAOAMNAO 
DDDDDDwWDVVIVIVOOO Me Me Me EK IM KN ZZ ZZ OO OOO ee eee 
PERPREER Ve Sea SEEEE RAR eci REP ESET See ee ee eee ee eeee Tees 


PRAMS at 1 


o£ Re ane 


ceeecereca 


Lt 
$07 hama 


TQE 
LOTRANIO 


5 -CLU 
$C“CLU_CLUDCB 
$c- | 


3 
: 
i 
ts 
sis 


yan 

0 
/ 

4 
2 
9 
2) 
00 
00 
00 
00 
00 


00000000 


RRERREER 
RRAREREH 
RRRRRHRE 


00000000 


0 

$e 
i 
i 
i 
$ 
gf 
$f 


RREAKREER 
Reker 
RRARERET 
RRARERER 
RRARRAEE 
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QUORUM 

Symbol table 
IRPSM_PHYSIO 
IRPS$W_BOF F 
IRPSwW_FUNC 
IRPSW_ “eit 
IRP$W"STS 
nmcSoL SPTBASE 


INV 
SS$"WRITLCK 
ese" ob gy 


TQESC"SSREPT 


TOESK-LENGTH 

TOESL-FP 

TOESL-FR 
OFS FRG 


VASV~VPN 
VALIDATE QUORUM_F ILE 
WRITE_COMPLETE 
WRI TE~QUORUM_ACT 
WRI TE~QUORUM~OWNACT 


= DISK QUORUM MODULE 


= 1 
= 
= 
= 
= 000 A 
RRRRRRRE x 4 
Reeeeeee x 4 
eeReeeeee x 4 
Reeeeeee x 4 
eeeeeeer x 4 
eeeeeeee x 4 
Reeeeeee x 4 
RReRAReee x 4 
ReRERRRR x 4 
keeeeeee x 04 
00003D5 R 04 
OOOOSDA R 04 
Sere he 
00000097 Re Od 
4949 bd R 04 
4 bs R 04 
000012F R 04 
as be: R 04 
0000039 R 04 
0000414 R 04 
= 00000018 
= 0000002¢ 
= 00000006 
Reeeerer x 04 
gereeeee x 04 
eekeeeer x 03 
reekkeee x 04 
gerteeee x 04 
= 
= 
= 
= 
= 
= 
= 
= 
= 
= 
= 
F-4 
= 
= 
= 
= 
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SYSLOA.SRCJQUORUM.MAR; 1 


tween amaaee wamone + 


! Psect synopsis ! 


etre omnes} 


PSECT name Allocation PSECT No. Attributes 
44 8 ( oF 0 ¢ -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 4444 ( -) QO1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$06 4 ¢ . eo ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC LONG 
$$ 44h 43 ( 199.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
$$$1 00000472 ( 1138.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
fomaemaes an woman wos amen ee @-+ 
: \ Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 5 08: 80 300-08 00:00:03.35 
Command processing 137 00:00: 8°38 B38 9 48 
Pass 420 00:00:10.3 0:00: et 
pyaeo) table sort 0 ab 00:00:07.11 
s2 188 00:00: S-¢ BR 20 19-00 
Soebel table output 20 Oh 80:6 11 0:00:00.11 
Psect synopsis output 00:00: 3-08 be fea aed 
Cross-reference output 2 See at Se 0:00:00.00 
Assembler run totals 80 00:00:15.11 00:01:00.50 


The working set Limit was 1950 pages. 

90025 bytes (176 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table pose allocated to hold 1566 non-local and 44 Local symbols. 
1055 source Lines were read in Pass 1 "eee 21 object records in Pass 2. 

23 pages of virtual memory were used to define 22 macros. 


RDoMemrr ese ees eee ew naman anre es + 


Macro Library name Macros defined 
=$35Ssbunss B:f8¥3-onj 18. AB: 1. -MLB;1 r 
S55SDUASB HP eYSLIGISTARLET.. MLB;2 5 
Terace ‘all Libraries) 19 


1637 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:QUORUM/0BJ=0BJ$: QUORUM MSRC$:QUORUM/UPDATE=(ENHS : QUORUM) +EXECMLS$/LIB+LIB$:CLUSTER/LIB 
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